home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Anwendun / Pov / POVTOOLS / SCENES / LEVEL2 / ARCHES.POV next >
Encoding:
Text File  |  1995-11-25  |  2.7 KB  |  119 lines
  1. // Persistence Of Vision raytracer version 2.0 sample file.
  2.  
  3. // By Dan Farmer
  4. // Parabolic arches on the water.  Is this the St. Louis McDonalds? 
  5.  
  6. #include "colors.inc"
  7. #include "shapes.inc"
  8. #include "textures.inc"
  9.  
  10. camera {
  11.    location <60.0, 0.0, -135.0>
  12.    direction <0.0, 0.0, 2.0>
  13.    up  <0.0, 1.0, 0.0>
  14.    right <4/3, 0.0, 0.0>
  15.    look_at <0.0, 0.0, 0.0>
  16. }
  17.  
  18. // Light 
  19. light_source {<200.0, 200.0, -150.0> colour red 1 green .5 }
  20.  
  21. // Now draw the sky (From sunset.inc)
  22. sphere { <0.0, 0.0, 0.0>, 300.0
  23.  
  24.    pigment {
  25.       gradient y
  26.       colour_map {
  27.          [0.0 0.8  colour red 0.5 green 0.1 blue 0.7
  28.                    colour red 0.1 green 0.1 blue 0.9]
  29.          [0.8 1.0  colour red 0.1 green 0.1 blue 0.9
  30.                    colour red 0.1 green 0.1 blue 0.9]
  31.       }
  32.       quick_color red 0.7  green 0.7 blue 1.0
  33.       scale 300.0
  34.    }
  35.    finish { ambient 1 }
  36. }
  37.  
  38. // Put in a few clouds 
  39. sphere { <0.0, 0.0, 0.0>, 259.0
  40.  
  41.    pigment {
  42.       bozo
  43.       turbulence 0.7
  44.       colour_map {
  45.          [0.0 0.6  colour red 1.0 green 1.0 blue 1.0 filter 1.0
  46.                    colour red 1.0 green 1.0 blue 1.0 filter 1.0]
  47.          [0.6 0.8  colour red 1.0 green 1.0 blue 1.0 filter 1.0
  48.                    colour red 1.0 green 1.0 blue 1.0]
  49.          [0.8 1.001 colour red 1.0 green 1.0 blue 1.0
  50.                     colour red 0.8 green 0.8 blue 0.8]
  51.       }
  52.       quick_colour red 0.7 green 0.7 blue 1.0
  53.       scale <100.0, 20.0, 100.0>
  54.    }
  55.    finish { ambient 1 }
  56. }
  57.  
  58.  
  59. // Define the ocean surface 
  60. plane { y, -10.0
  61.  
  62.    pigment { Blue }
  63.    normal {
  64.       waves 0.05
  65.       frequency 5000.0
  66.       scale 3000.0
  67.    }
  68.    finish { reflection 0.8 }
  69. }
  70.  
  71. /* Put a floor underneath to catch any errant waves from the ripples */
  72. plane { y, -11.0
  73.    pigment { Blue }
  74.    finish {
  75.       ambient 1.0
  76.       diffuse 0.0
  77.    }
  78. }
  79.  
  80. // Create the arches using CSG difference between two "squashed" paraboloids
  81. difference {
  82.    object { Paraboloid_Y
  83.       scale <20.0, 20.0, 5.0>
  84.       rotate 180*x
  85.    }
  86.    object { Paraboloid_Y
  87.       scale <15.0, 20.0, 15.0>
  88.       rotate 180*x
  89.       translate -2*y
  90.    }
  91.  
  92.    finish { Metal }
  93.    pigment { White }
  94.  
  95.    /* Move the whole thing to where I should've
  96.     designed it in the first place!!  */
  97.  
  98.    translate <0.0, 30.0, -25.0>
  99. }
  100.  
  101. difference {
  102.    object { Paraboloid_Y
  103.       scale <20.0, 20.0, 5.0>
  104.       rotate 180*x
  105.    }
  106.    object { Paraboloid_Y
  107.       scale <15.0, 20.0, 15.0>
  108.       rotate 180*x
  109.       translate -2*y
  110.    }
  111.  
  112.    finish { Metal }
  113.    pigment { White }
  114.  
  115.    /* Move the whole thing to where I should've
  116.     designed it in the first place!!  */
  117.    translate <0.0, 30.0, 50.0>
  118. }
  119.